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Obligatory Stuff 
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President 
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Uice President 
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565 0980 


Secretary/Treasurer 


Dave Coleman 


949 8278 


Editor 


Jarrett Currie 


757 2391 


Asst Editor 


Jim Slough 


586 0397 


Librarian C1Z8 


Ken Danylczuk 


545 0644 


Librarian C 64 


Stan Mustatia 


789 8167 


Asst Librarians 


Earl Brown 


543 2068 




Garth Strawford 


924 1402 


Members at Large 


Real Charron 


586 1843 


Harry Chong 


789 2142 




Joe Gomes 


789 8174 



If you have any questions about CUGS please feel free to 
contact any of the above executive members. 

The Mcmitor is published monthly by the COMMODORE USERS* 
GROUP Of SASKATCHEWAN (CUGS), Reyina, Sask. CUGS meetings 
ore held the FIRST NEDNESDAV of every month (unless 
otheriuise noted) at Killer High School. The next meeting mill 
be held: January (, 1993 From 7:39 - 9:39 p.m. 

CUGS is o non-profit organization comprised of C64, 64C, 
C128, and 128D users interested in sharing ideas, programs, 
knowledge, problems and solutions with each other. 

Membership dues are pro-rated, based on a January to 
December year. 

Anyone interested in computing is welcome to attend any 
meeting. Out of town members are also welcome, but may 
be charged a small ($5,00) moiling fee for newsletters. 
Members are encouraged to submit public domain software 
for inclusion in the CUGS DISK LIBRARV. These programs are 
made available to members. Any member is entitled to 
purchase DISKS from our pubfic domain Rbrory for a nominal 
fee. Programs are ‘freeware*, from computer magazines, or 
the public domain. Individual members are responsible for 
deleting any program that he/she is not entitled to by law 
(you must be the owner of the magazine in which a 
particular program was printed). To the best of our 
knowledge, all such programs are identified in their listings. 
Please let us know if you find otherwise. 



EctitoriaC 

btj Jarrett Currie 

I would like to take the opportunity to welcome the new 
Executive to their new positions. Of course, I would especially 
like to thank Garth Strawford for letting his name be 
nominated for the position of editor. I am sure he win 
continue to enhance the Monitor so that it continues to be a 
vital part of CUGS. 

I think that over the last three years that I have been editor, 
the most common theme in my editorials has been requests 
for articles. This month, only Barry, our club president, 
managed to write something for the Monitor. The other two 
articles were downloaded from CompuServe. For those of you 
who download programs from various sources, please 
remember that if you find a text file on a BBS about 
something of interest to Commodore computer uses, that it is 
fair game as a submission to the Monitor. Throughout my 
stint as editor, I have used articles from CompuServe, Qlink 
and other Commodore dubs* newsletters, so I hope that as I 
stand down, that others will continue to disseminate 
information they find outside of Regina. 

As this is my last editorial, I would like to thank those who 
made the position easier and more eryoyable. These are the 
people who wrote articles for the newsletter, and submitted 
them on time. I would also like to wish Garth the best of 
luck. I hope he finds the experience as pleasurable as I did. 
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The Write Disk 

by Barry Btrcfter 

Lost month, I talked a bit about error handling routines and 
how to talk to the drive. This month I would like to discuss 
uses of the disk status byte "ST". The status variable has 
some very unique uses os it relates to accessing the disk 
drive. The disk status byte is read just Bke any other variable. 
The voriable ST is special to the system and is a reserved 
variable. This means that it is a read-only variable; you can 
read it as a variable, but you cannot uwite to it. 

When programming, it is not always known how big a file is 
when you read it in for the first time. A good example are 
seq text files from word processors. How would you know 
when the last character was read from the file? If you don’t 
check for the last byte, you could be reading some 
extraneous information that means nothing (basically pulling 
data out of the air). 

This is where the reserved system variable ST comes in 
handy. ST stands for disk STatus (serial I/O actually, which 
includes the tape drive). By checking ST each time you 
retrieve data from a file, you can tell when the last byte has 
been retrieved. The variable ST is set to 6 (zero) by the 
system in the background when things are OK and changes to 
64 when the last byte of data was retrieved. 

When you issue a BASIC command like PRINT ST, the system 
actually PEEKs a memory location (hex $90) which stores an 
8-bit byte resulting from the last serial (tape or disk in/out) 
operation performed by the system. Each bit of the 8-bit byte 
means something. We are primarily concerned with the 6th bit. 
If the 6th bit is set, this gives the ST variable a value of 64 
meaning that the end of the file has been reached. If you 
look at this variable right after a disk access, this variable 
will reflect the status of the operation. Generally speaking, ST 
will be 0 if the last access went OK. It will be something 
other than 0 if there was an error. If you keep checking ST 
when reading from a file, it will change magically (the 
operating system changes it) to 64 when the last byte was 
read. There are other numbers it will change to, but these are 
for more advanced uses and will be discussed later on. 

The usual programming practice is to simply check to see if 
ST equals 0 and stop when it’s not. Since our previously 
discussed program uses a GOSUB 1006 to check for errors, this 
is as good a place as any to put it, so we’ll place it there 
as the first tWng to check. We’ll copy our version of ST and 
save it to the S variable. 

The placement of the M 5=Sr is important. We need to save 
our version of ST before any other serial operation takes 
place, including the error reading routine that is about to take 
place. ST will reflect how the last serial operation went. If the 
reading of the error channel is OK, then ST will reflect the 
true operation of the last serial operation and not our 
previous operation. So we just make a copy of it before the 
operating system decides to change it on us. 

The following is a program I have written that I use as an 



The Pma'dml ' s 
Message 

Hello, and welcome new members and executives alike. It 
has been a really short month since the last meeting and 
another one is upon us again. This month's presentation will 
see Tristan Miller doing a presentation on the CMD Hord Drive 
and showing how easy it is to add to your system. Also he 
plans on showing the speed of the drive in a graphic demo. I 
know this will be one meeting you will be sorry to miss. 

There are several megabytes of Commodore files floating 
around the city and CUGS is going to get them for you, Stan 
and Tristan have volunteered to get some of these programs 
and put them into the library so CUGS members can get them 
as well. We are still working on the Florida disks (1) megs), 
however the going is slow because most of them are 
copyrighted, so we are wading through them and pulling out 
the public domain and shareware programs. This is a long and 
time consuming process of copying, unorcing, delynxing, 
extracting and checking out if the program first of aH works, 
and to see if it is PD or shareware. I understand that the FACT 
BBS has just acquired well over 150 megs of files just waiting 
for Commodore users to use. These Wes should eventually 
filter down into our own BBS and library. I do see several 
hundred disks of new software coming out to the CUGS 
library in the coming years(s). 

Well, till next time, have a good one. 



example in this series of articles. Please note that this is a 
renumbered version with some slight modifications from 
previous articles. 

10 rem open error channel 
20 open15,8,15 
30 rem open a file up 
40 open 2,8,2,"unknown ffle,s,r”: 

50 rem check for disk errors like "FILE NOT FOUND" 

60 gosub1000:if ds then 140 

70 rem get a character from the file and check for errors. 

80 get#2,a$:gosub 1000 

90 if ds>0 then print’Disk error, program aborted’’:goto140 
100 print a$; 

U0 if s=0 then 80 

120 rem if program control has reached to here, then the file 

has ended normally 

130 print'No more info, file ended!" 

140 dose2:close15 
150 end 

999 rem disk error checking routine 

1000 s=stHnput#15,ds,ds$,tr,sc 

1010 if ds <>0 then print ds;ds$,*tr;sc 
1020 return 

In line 80 we retrieve a byte from the file in A$, then coH 
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on o subroutine (GOSUB) 1000 that does our disk error 
checking for us. It saves our copy of ST in vorioble S ond 
checks the error channel. After the subroutine has "RETURNED' 1 
it checks if there was on error. If there was an error, then it 
prints out a message to the user that we are going to do 
something about this error. In this case, I chose to simply 
abort the program and close some files we had opened up 
and end the program (GOTO 140). If there was no error, then 
line 100 is executed and prints the character contained in A$ 
out to the screen. Line 110 checks to see if the byte we just 
previously took from the file was the last one. If our copy 
of ST (S) is 0, then there is still more to come so we loop 
back to line 80 to get more. If S is something other than 0, 
then it probably was the last byte and the program control 
passes down to line 1)0 which prints out a message and 
closes the files we opened up and ends the program. The line 
with "REM" right after the line numbers are ignored and are 
not executed. The REM command is useful for including 
program REMorks and notes to yourself about various things 
the program is about to do. 

A minor variation to this program could allow you to print 
out the file to a printer. Add in these lines to the above 
program to print out to a printer as well as the screen. 

45 open 4,4,7 

100 printajr4>rint#4,a$; 

140 closeZ:close4:close15 

Line 45 opens up a channel (4) to the printer (4) and sets a 
secondary address to 7. The secondary address has (Afferent 
meanings to different devices. In this case, if you have a 
Commodore printer plugged in, the number 7 will put the 
printer into lowercase-uppercase. Check your printer manual 
for the proper secondary address number. Line 100 prints out 
the byte to the screen as well as to the printer. Line 140 
simply closes the file. The after the variable AJ seems 

rather innocent but does a very important function. Without it, 
the computer screen (or printer) would print the characters 
one on top of the other with each character taking up the 
whole fine 

eg. Something that should read "HELLO" would be printed out: 

H 

E 

L 

L 

0 

Well, next month, I will discuss creating a program that uses 
a seq file to store a bowling league database. 




CompuServe 
Commodore Tricks 

Hello. Commodore programmers! This file w3l show you some 
interesting SVS, POKE ond PRINT features that will create some 
helpful (and neat) stuff on your 64! 

Ready? Okay, let’s get to it! 

POKE 868,225 

The above command will disable the RUN/STOP key and the 
LIST command. POKE 888,2)7 re-enables them. If it doesn't 
re-enable them, try PRINT PEEK (808) when you FIRST turn the 
power on. The number you get is the one to be POKEd into 
888 to re-enable the RUN/STOP key and LIST command after 
you disable them. 

POKE 658.128 

Makes characters repeat if that key is held down. 

PRINT PEEK (56)21) 

The above command tells you which direction the joystick in 
Port 1 is being moved. The number you get means the 
following: 

254 - UP 25) - DOWN 

251 - LEFT 247 - RIGHT 

258 - UP/LEFT 246 - UP/RIGHT 

249 - ON/LEFT 245 - DN/RIGHT 

2)9 - Fire button 

For coding a certain sentence. 

POKE 5)272,N 

This mokes the characters on the screen become strange ond 
mystic. There are 188 different sets of these "weird” 
characters, depending on what value you put for N. (N is any 
number from 8 to 99.) 

POKE 5)272.21 to get bock to the normal letters (A B C 0 E F 
etc.) instead of the strange designs. 

Finally. 

FOR T=55296 TO 56295dPOKE T.NrNEXT T 

The above command turns all of the characters on the 
screen whatever color you want (Color = Uolue of N). 

For the different color values to put in place of N, see the 
top of page 1)9 in the Commodore 64 User's Guide that 
comes with the computer. 

I'm sure most of you know this, but for a BASIC beginner 
that doesn't know a whole lot yet, the command below 
changes the screen (background) and border colors to 
whatever color's value you put for N (see the top of page 
1)9 in the C-64 User's Guide.) 

Border: POKE 5)288, N Screen (Background): POKE 5)281, N 
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♦♦♦ more CompuSerue tric£s 



The following programs and tips are examples of wags to 
make gour BASIC programs look more structured. 

First of all it is alwags best if gou are writing a large program 
to break it up into several subroutines. These subroutines 
could make use of variables so as to function differentlg 
depending on what part of the program is coding them. 

To give gour subroutine an apparentlg REMIess title do the 
following: 

1) Enter the REM on desired fine followed bg a quote ("). 

2) Press <CR> 

3) Cursor up to that line and to the right of that quote and 
turn on reverse mode (CTRL RUS-ON). 

4) Now press SHIFT M and SHIFT Q. 

5) Press the quote again then delete it. 

6) Enter the comment gou wish to be entered as a REMork. 

7) Press quote and then delete it. 

8) RUS-ON. 

9) Next SHIFT Z. 

16) FinaUg, <CR>. 

That’s all there is to it! I can’t take credit for this one. It 
belongs to Luis Pistoia of Argentina. 

To produce the indentation effect found in certain PASCAL and 
C editors, use the colon (:). That’s ad! The following give 
examples of what I mean: 




PROGRAM M 

10 *EM THIS IS AN EXAMPLE IN 
12 *EM STRUCTURED PROGRAM DESIGN 

16 iEGINNING=t FINISH=12 
18 JOR LOOP = BEGINNING TO FINISH 
20 : PRINT ’’LOOP LOOP 

22 : PRINT: PRINT: PRINT 

24 :NEXT LOOP 
99 :STOP 



Also, in PROGRAM #2 I use long variable names to make the 
program more readable. NaturoDg BASIC will onlg read the first 
two characters of the variable. For example the BASIC 
interpreter wiH refer to the variable BEGINNING as BE. (Editor's 
note: this program won’t work successfullg because of the 
imbedded tokens in the variable names, such as the IN in 
BEGINNING. Care should be taken not to include BASIC 
kegwords in long variable names, -jbc) 

I hope these hints are helpful. If theg are, pass them on! 




Mordprocessinq 


Paperclip (to version E) 


Jarrett Currie 


757 2391 


Paperclip (ong version) 


Ken Dangle? uk 


545 8644 


Pocket Writer 


Barrg Bircher 


543 8848 


Pocket Writer 


Real Chorron 


586 1843 


Spreadsheets 


Pocket Planner 


Barrg Bircher 


543 8840 


Better Working SS 


Ken Dangle? uk 


545 8644 


Databases 


Pocket Filer 


Barrg Bircher 


543 8848 


Oracle (Consultant) 


Ken Danglcruk 


545 8644 


Communication 


Desterm 2.0 


Barrg Bircher 


543 8848 


Dialogue 128 


Jarrett Currie 


757 2391 


Librarg files 


Barrg Bircher 


543 8848 


Music/Sound 


(Most) 


Ken Dangle? uk 


545 8644 


Languages 


Forth 


Ken Dangle? uk 


545 8644 


Pascal 


Ken Dang!c?uk 


545 8644 


Ml (machine language) 


Ken Dangle? uk 


545 0644 


ML (machine language) 


Barrg Bircher 


543 8840 


BASIC (2.B-7.0, files) 


Ken Dangle? uk 


545 0644 


Graphics 


Print Shop/Master 


Ken Danglc?uk 


545 0644 


Koala Painter/Printer 


Ken Dangle? uk 


545 8644 


Hardware 


Disk Drive Maintenance 


Ken Dangle? uk 


545 8644 


CEOS 


GEOS 64 


jarrett Currie 


757 2391 


GEOPublish 64 


jarrett Currie 


757 2391 


GEOS 128 


Barrg Bircher 


543 8840 


CP/M 


CP/M 128 


Jarrett Currie 


757 2391 


Archiving Programs 


Jarrett Currie 


757 2391 
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